From: Jim Blandy <jimb@redhat.com>
Date: Mon, 15 Mar 1993 21:41:36 +0000 (+0000)
Subject: * frame.c (Fframe_height, Fframe_width): Fix doc strings to match
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96853
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=48c9d487f80a6aec2726fb8c3f5c9eb86e121a37;p=emacs.git

* frame.c (Fframe_height, Fframe_width): Fix doc strings to match
	those of the multi-frame versions in frame.el.  Accept an optional
	argument FRAME, also for consistency.
---

diff --git a/src/frame.c b/src/frame.c
index e75278bb7df..32931ade8bb 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1561,16 +1561,20 @@ DEFUN ("set-frame-size", Fset_frame_size, Sset_frame_size, 3, 3, 0,
   return Qnil;
 }
 
-DEFUN ("frame-height", Fframe_height, Sframe_height, 0, 0, 0,
-  "Return number of lines available for display on selected frame.")
-  ()
+DEFUN ("frame-height", Fframe_height, Sframe_height, 0, 1, 0,
+  "Return number of lines available for display on FRAME.\n\
+If FRAME is omitted, describe the currently selected frame.")
+  (frame)
+    Lisp_Object frame;
 {
   return make_number (FRAME_HEIGHT (selected_frame));
 }
 
-DEFUN ("frame-width", Fframe_width, Sframe_width, 0, 0, 0,
-  "Return number of columns available for display on selected frame.")
-  ()
+DEFUN ("frame-width", Fframe_width, Sframe_width, 0, 1, 0,
+  "Return number of columns available for display on FRAME.\n\
+If FRAME is omitted, describe the currently selected frame.")
+  (frame)
+    Lisp_Object frame;
 {
   return make_number (FRAME_WIDTH (selected_frame));
 }